home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Selection / Multimedia Selection Volume One - CD-ROM / MULTIMEDIA SELECTION____________.ISO / utils / makv2_6 / dt.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1992-07-12  |  196 b   |  14 lines
  1. 10  OPEN "O",#1,"c:\dt"
  2. 20  D$=DATE$
  3. 30  PRINT #1,D$
  4. 40  CLOSE
  5. 50  OPEN "I",#1,"c:\dt"
  6. 60  A$=INPUT$(8,#1)
  7. 70  ON ERROR GOTO 120
  8. 80  OPEN "I",#2,"c:\today"
  9. 90  B$=INPUT$(8,#2)
  10. 100  IF A$=B$ THEN GOTO 130
  11. 110  CLOSE
  12. 120  SHELL "check.bat"
  13. 130  SYSTEM
  14.